home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 5 / chrpro3.zip / MCONEDIT.CMD < prev    next >
OS/2 REXX Batch file  |  1991-01-21  |  6KB  |  171 lines
  1. * Program MCONEDIT - Allows changes to one page of contributions
  2.       Release samepage,penvno,wknumb,continu
  3.       Store '0' to ENVNUMBX
  4.       Store EC to ECMAX
  5.       Store 0 to EC
  6.       Do while EC < ECMAX
  7.         ERASE
  8.         Store EC+1 to EC
  9.         Store $(envnbrs,EC*4-2,4) to envno
  10.         @ 2,9 SAY 'CONTRIBUTIONS REPORTING  - -  WEEK OF '+WKNAME
  11. @ 4,2 say 'RECHECKING PAGE '+PTCS+' TOTALS.. OFFERINGS FOR ENVELOPE NUMBER '+;
  12. ENVNO
  13.         Store val(envno) to envnumb
  14.         STORE 'N' TO RESP
  15.         GOTO envnumb
  16.         Store 0.00 to OCATEGT2
  17.         Store 0.00 to OCATEGT3
  18.         Store 0.00 to OCATEGT4
  19.         Store '0' to N
  20.         Store 6 to XX
  21.         Do while N<>OT
  22.           STORE STR(VAL(N)+1,1) TO N
  23.           Store $(OCATEG&N,FL+1,8) TO RESP
  24.           Store RESP to OCATEGM&N
  25.           Store &RESP to OCATEGT&N
  26.           IF N=OT
  27.             @ XX,18 SAY '------'
  28.             STORE XX+1 TO XX
  29.           ENDIF
  30.           @ XX,2  say OCATNAM&N
  31.           @ XX,16 say OCATEGM&N
  32.           STORE XX+1 TO XX
  33.         ENDDO
  34.         ?
  35.         ACCEPT 'IS THIS RECORD CORRECT? (Y/N/A/Q/<RETN>) ' TO RESP
  36.         Store F to valid2
  37.         Do while .not. valid2
  38.           If !(resp)='Y' .or. !(resp)='Q' .or. !(resp)=' '
  39.             Store F to currec
  40.             Store T to valid2
  41.           else
  42.             If !(resp)='N' .or. !(resp)='A'
  43.               Store T to valid2
  44.               Store T to currec
  45.               Store ocategt4 to I
  46.             else
  47.               Accept 'Invalid response. Please enter again ' to RESP
  48.             endif
  49.           endif
  50.         enddo
  51.         Do while CURREC
  52.           Do while !(resp)='N' .or. !(resp)='A'
  53.             DO CASE
  54.             CASE !(resp) = 'N'
  55.               ERASE
  56.               @ 2,10 say 'CONTRIBUTIONS REPORTING  - -  WEEK OF '+WKNAME
  57. @ 4,5 say 'Rechecking page '+PTCS+' TOTALS.. OFFERINGS FOR ENVELOPE '+ENVNO
  58.               Store 6 to XX
  59.               Store '1' to N
  60.               Do while N<>OT
  61.                 @ XX,2 say OCATNAM&N
  62.                 @ XX,15 get OCATEGT&N
  63.                 Store XX+1 to XX
  64.                 Store str(val(N)+1,1) to N
  65.               enddo
  66.               @ XX,20 say '------'
  67.               READ
  68.               Store 0.00 to OCATEGT&OT
  69.               Store OCATEGT1+OCATEGT2+OCATEGT3+OCATEGT4 to OCATEGT&OT
  70.               @ XX+1,17 say str(OCATEGT&OT,9,2)
  71.               ?
  72.               Accept 'Is this record correct? ' to resp
  73.               If !(resp)<>'N'
  74.                 Store 'Y' to resp
  75.                If OCATEGT4<>I
  76. ? 'CONTRIBUTION for Special Account has changed. It will be right in the '
  77. ?? 'CONTRIB'
  78. ? 'file but you must edit the Special Account file amount for this envelope.'
  79. ?
  80.                Accept '                                Press <return> ' to N
  81.                endif
  82.               endif
  83.             CASE !(resp)='A'
  84.               Store ENVNO to ENVNUMBX
  85.               Accept 'Enter envelope number ' to ENVNO
  86.               Store val(ENVNO) to envnumb
  87.               @ 12,0
  88.               @ 13,0
  89.               @ 14,0
  90.               @ 4,0
  91.               Store F to valid2
  92.               Do while .not. valid2
  93.                 If !(envno)='Q'
  94.                   Store T to valid2
  95.                   Store F to currec
  96.                 else
  97.                 if  envnumb>0 .and. envnumb<offermax+1
  98.                   GOTO ENVNUMB
  99.                   Store EC to ECX
  100.                   Release samepage,penvno,wknumb,currec
  101.                   DO MCINSCRN.CMD
  102.                   If EC<>ECX
  103.                     Store ECMAX+1 to ECMAX
  104.                   endif
  105.                   Store envnumbx to ENVNO
  106.                   Store val(envno) to envnumb
  107.                   GOTO envnumb
  108.                   Store '0' to N
  109.                   Do while N<>OT
  110.                     Store str(val(N)+1,1) to N
  111.                     Store $(OCATEG&N,FL+1,8) to OCATEGM
  112.                     Store OCATEGM to OCATEGM&N
  113.                     Store &OCATEGM to OCATEGT&N
  114.                   enddo
  115.                   Store T to valid2
  116.                   Store T to currec
  117.                 else
  118.                   ?
  119.                   ACCEPT 'Invalid envelope number. Please enter again' to ENVNO
  120.                 endif
  121.               endif
  122.               Store 'N' to resp
  123.              enddo
  124.           CASE !(resp)='Q'
  125.             Store F to currec
  126.           endcase
  127.           If !(resp)='Y'
  128.             Store '0' to N
  129.             Do while N<>OT
  130.               Store str(val(N)+1,1) to N
  131.     Replace OCATEG&N with $(OCATEG&N,1,FL)+STR(OCATEGT&N,8,2)+$(OCATEG&N,SS,SL)
  132.             ENDDO
  133.             Store '0' to N
  134.             Do while N<>OT
  135.               Store str(val(N)+1,1) to N
  136.               Store OCATEGM&N to OCATEGM
  137.               Store OCATPT&N + OCATEGT&N - &OCATEGM to OCATPT&N
  138.             enddo
  139.             Store F to currec
  140.           else
  141.             If !(resp)='A'
  142.               @ 15,0
  143.               @ 14,0
  144.             endif
  145.           endif
  146.         enddo
  147.       enddo
  148.       If !(resp)='Q'
  149.         Store ecmax to EC
  150.         Store T to valid1
  151.       endif
  152. enddo
  153. Release OCATEGM1,OCATEGM2,OCATEGM3,OCATEGM4,OCATEGM5,ECX
  154. RETURNETURNnddo
  155.       enddo
  156.       If !(resp)='Q'
  157.         Store ecmax to EC
  158.         Store T to valid1
  159.       endif
  160. enddo
  161. Release OCATEGM1,OCATEGM2,OCATEGM3,OCATEGM4,OCATEGM5,ECX
  162. RETURNN=OT
  163.             @ XX,18 SAY '------'
  164.             STORE XX+1 TO XX
  165.           ENDIF
  166.           @ XX,2  say OCATNAM&N
  167.           @ XX,16 say OCATEGM&N
  168.           STORE XX+1 TO XX
  169.         ENDDO
  170.         ?
  171.         ACCEPT